' List System Locations

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colOSItems = objWMIService.ExecQuery("SELECT * FROM Win32_PnPSignedDriver")
For Each objOSItem In colOSItems
	If Len(objOSItem.Description) > 0 then
  		WScript.Echo objOSItem.Description & ": " & objOSItem.InfName
  	End If
Next